﻿Public Class Home
    Private Sub BtnClose_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles BtnClose.MouseUp
        End
    End Sub

    Private Sub BtnHomeStart_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles BtnHomeStart.MouseUp
        Me.Hide()
        Dim x As New Main
        GameForm.Controls.Add(x)
    End Sub

    Private Sub BtnHomeHighest_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles BtnHomeHighest.MouseUp
        Me.Hide()
        Dim x As New HighScore
        GameForm.Controls.Add(x)
    End Sub

    Private Sub BtnHomeHowto_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles BtnHomeHowto.MouseUp
        Me.Hide()
        Dim x As New HowToPlay
        GameForm.Controls.Add(x)
    End Sub

    Private Sub BtnHomeCredits_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles BtnHomeCredits.MouseUp
        Me.Hide()
        Dim x As New Credit
        GameForm.Controls.Add(x)
    End Sub

End Class
